home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v10n12.arc
/
SAMPLE.PRG
< prev
next >
Wrap
Text File
|
1991-05-30
|
720b
|
29 lines
* SAMPLE.PRG
* Sample program for resetting the screen colors
* and displaying a custom copyright notice
* Set up environment
CLEAR ALL
SET SCOREBOARD off
SET ESCAPE on
SET CLOCK off
SET COLOR OF BOX TO R/BG && Red on Cyan
SET COLOR OF NORMAL TO GR+/B && Yellow on Blue
* Define copyright window
DEFINE WINDOW copyright FROM 8,10 TO 14,70
* Display window and copyright notice inside
ACTIVATE WINDOW copyright
@ 1,21 SAY "Sample Application"
@ 3,13 SAY "Copyright (c) XYZ Corporation 1991"
delay = INKEY(5) && Delay for five seconds
RELEASE delay
DEACTIVATE WINDOW copyright
RELEASE WINDOW copyright
*
* Remainder of Main Procedure Code
*
QUIT